20 GRAPH:ELLIPSE 80,35,70,15:ELLIPSE 80,35,73,18
23 LOCATE 2,4:PRINT "";:LOCATE 2,8:PRINT "";
26 LOCATE 2,12:PRINT "ɨ";:LOCATE 2,16:PRINT "";
28 LOCATE 3,10:PRINT "d";
30 LOCATE 5,3:PRINT "Secular  Present";:INKEY$
40 CLEAR:CLS:DIM NA$(6),TI(3):NA$(4)="":NA$(5)="м":NA$(6)="߼"
46 OPEN "hero" FOR RANDOM AS #1
48 IF LOF(1)=0 THEN NA$(1)="Hero":NA$(2)="Hero":NA$(3)="Hero":CLOSE #1:58
50 CLOSE #1:OPEN "hero" FOR INPUT AS #1
52 FOR N=1 TO 3
55 INPUT #1,NA$(N),TI(N):NEXT N:CLOSE #1:CLS: GOTO 60
58 TI(1)=599:TI(2)=599:TI(3)=599:CLS
60 LOCATE 2,7:PRINT "Ϸ":LOCATE 3,7:PRINT "Ϸ":LOCATE 4,7:PRINT "Ӣ  "
70 BOX 47,14,113,65:BOX 48,16,112,31,1,2:Y=1:YY=1
80 K=ASC(INKEY$)
90 IF K=20 AND Y<>1 THEN YY=Y:Y=Y-1:130
100 IF K=21 AND Y<>3 THEN YY=Y:Y=Y+1:130
110 IF K=13 THEN 140
115 IF K=27 THEN 320
120 GOTO 80
130 BOX 48,16*YY,112,16*YY+15,1,2:BOX 48,16*Y,112,16*Y+15,1,2: GOTO 80
140 CLS:ON Y GOTO 470,150,410
150 DIM IN$(19):Y=1
160 IN$(1)="    ̡":IN$(2)="Ī֡˫":IN$(3)="ֲа"
170 IN$(4)="á":IN$(5)="˾Ϸ"
172 IN$(6)="һ":IN$(7)="ʲô]    ":IN$(8)="<>or<Q>:    "
180 IN$(9)="<ո>or<S>:    ":IN$(10)="<>:Զ-޴"
185 IN$(11)="<˰>or<W>:  "
190 IN$(12)="<F1>:¿       ":IN$(13)="<>:ƶ   "
200 IN$(14)="ɨʱ10ӡ"
210 IN$(15)="ɾhero.datӢ":IN$(16)="۰ʲô"
215 IN$(17)="ָ̣ӭң"
220 IN$(18)="12030046E-Mail":IN$(19)=" secular2002@163.com"
225 PRINT "****  Ϸ  ****"
230 IN$=MID$(IN$(Y+3),1,LEN(IN$(Y+3))-1)
240 LOCATE 2,1:PRINT IN$(Y);IN$(Y+1);IN$(Y+2);IN$;
245 POKE 803,ASC(RIGHT$(IN$(Y+3),1)):PRINT ;
250 K=ASC(INKEY$)
260 IF K=27 THEN 40
270 IF K=21 AND Y<>16 THEN Y=Y+1:230
280 IF K=20 AND Y<>1 THEN Y=Y-1:230
290 IF K=19 AND Y>1 THEN IF Y>5 THEN Y=Y-4:230 ELSE Y=1:230
300 IF K=14 AND Y<19 THEN IF Y<12 THEN Y=Y+4:230 ELSE Y=16:230
310 GOTO 250
320 CLS:LOCATE 2,1:PRINT "    ллԱϷƫL":PRINT SPC (9);"Secular":END
410 PRINT "****  Ӣ    ****";
420 PRINT SPC (6);"     ʱ"
430 FOR N=1 TO 3
440 LOCATE N+2,1:PRINT NA$(N+3);"  ";NA$(N);:LOCATE N+2,16:PRINT INT(TI(N)/60);":";
450 T=INT(TI(N)/60):T=TI(N)-60*T:IF T<10 THEN PRINT "0";T; ELSE PRINT T;
460 NEXT N:INKEY$: GOTO 40
470 PRINT "****  Ϸ  ****e    ᣺10":PRINT "  м    ݣ09"
480 PRINT "  ߼    ף15":PRINT "  Զ   1";
490 SW=1: GOTO 540
500 LOCATE SW+1,1:IF K=0 THEN PRINT "  "; ELSE PRINT "e";
510 RETURN
520 LOCATE 2,15:PRINT 10+(SW-1)*6:LOCATE 4,15:PRINT 15*SW:IF D<>1 THEN K=1:GOSUB 500
530 LOCATE 5,16:PRINT SW;:RETURN
540 KK=ASC(INKEY$)
550 IF KK=13 THEN 765
560 IF KK=27 THEN 40
570 IF KK=20 AND SW>1 THEN K=0:GOSUB 500:SW=SW-1: GOTO 590
580 IF KK=21 THEN IF SW=3 THEN 750 ELSE K=0:GOSUB 500:SW=SW+1
590 K=1:GOSUB 500:GOSUB 520: GOTO 540
595 LOCATE D*2,9:IF K=0 THEN PRINT "  "; ELSE PRINT CHR$(17);CHR$(16);
596 RETURN
600 LOCATE D*2,15:PRINT A;:IF D=2 THEN M=A ELSE H=A
610 S=H*9:IF INT(S/M)>5 THEN PEE=1:640
620 IF INT(S/M)<5 THEN PEE=3:640
630 PEE=2
640 LOCATE 5,16:PRINT PEE;
650 KK=ASC(INKEY$)
660 IF KK=22 AND A<MAX THEN A=A+D:600
670 IF KK=23 AND A>MIN THEN A=A-D:600
680 IF KK=20 THEN K=0:GOSUB 595:IF D=1 THEN 570 ELSE 710
690 IF KK=21 OR KK=13 THEN K=0:GOSUB 595:IF D=2 THEN M=A:770 ELSE 730
700 GOTO 650
710 D=1:K=1:GOSUB 595:M=A:A=H:MAX=22
720 GOTO 650
730 D=2:K=1:GOSUB 595:H=A:A=M:MAX=60
740 GOTO 650
750 K=0:GOSUB 500:K=1:SW=4:GOSUB 500:D=1:GOSUB 595:A=16:MAX=22:MIN=10:M=20
760 LOCATE 4,15:PRINT M;:H=16: GOTO 600
765 H=10+(SW-1)*6:M=15*SW:PEE=SW
770 XA=12+INT((H+1)/2):XI=13-INT(H/2):OPEN "hero" FOR OUTPUT AS #1
780 FOR N=1 TO 3
790 WRITE #1,NA$(N),TI(N)
800 NEXT N
810 WRITE #1,H,M,XA,XI,PEE,SW
820 CLOSE #1
830 CLS:PRINT "GvbasicС":PRINT "]LOAD ";CHR$(34);"SWEEP":PRINT "]RUN"
840 IF INKEY$<>CHR$(27) THEN 40
850 GOTO 320
